Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Синтез граматик

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра прикладної математики

Інформація про роботу

Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Математика
Група:
ПМ-22

Частина тексту файла

Міністерство освіти та науки України Національний університет “Львівська політехніка” Інститут прикладної математики і фундаментальних наук Кафедра прикладної математики Лабораторна робота № 4 Синтез граматик Львів 2007 Умова задачі: 2. Побудувати граматику констант мови Паскаль з фіксованою точкою, сумарна кількість цифр яких не перевищує 2. Текст програми: #include<stdio.h> #include<conio.h> #include<iostream.h> #include<string.h> char str[100]; char *cons="const "; void main (void) { clrscr(); cout<<"Vvedit strichku:\n"; cin.getline(str,100); int i=0; int pr=0; int pr1=0; for (i=0;i<strlen(str);) { if(str[i]==' '){i++;} else{ pr=0; for(int j=0;j<strlen(cons);j++,i++) {if(str[i]==cons[j]) {pr=1;} else {pr=0;}; }; break; } } if(pr==1) {for (;i<strlen(str);) { if(str[i]==' '){i++;} else{ pr=0; if(str[i]>='a'&&str[i]<='z'){pr=1;i++;break;} else{pr=0;}; i++; } } } if(pr==1) {for (;i<strlen(str);) { if(str[i]==' '){i++;} else{ pr=0; if(str[i]=='=') {pr=1;i++;break;} else{pr=0;}; i++; } } } if(pr==1) {for (;i<strlen(str);) {if(str[i]==' '){i++;} else{ pr=0; if((str[i]>='0'&&str[i]<='9'&&str[i+1]>='0'&&str[i+1]<='9')&&(str[i+2]==' '||str[i+2]==';')) {pr=1;i=i+2;break;}; if(str[i]>='0'&&str[i]<='9'&&str[i+1]=='.'&&str[i+2]>='0'&&str[i+2]<='9'&&(str[i+3]==' '||str[i+3]==';')) {pr=1;i=i+3;break;}; if(str[i+1]>='0'&&str[i+1]<='9'&&str[i]=='.'&&str[i+2]>='0'&&str[i+2]<='9'&&(str[i+3]==' '||str[i+3]==';')) {pr=1;i=i+3;break;}; break; }; // } } if(pr==1) {for (;i<strlen(str);) { if(str[i]==' '){i++;} else{ pr=0; if(str[i]==';') {pr=1;i++;break;} else {pr=0;}; }; } if (pr==1){pr1=1;}; } if(pr1==1){cout<<"Stricka '"<<str<<"' opysue gramatyku konstant movy paskal z fiksovanoyu tochkoyu, kilkist cyfr yakyh rivna 2";} else{cout<<"Stricka '"<<str<<"' ne opysue gramatyku konstant movy paskal z fiksovanoyu tochkoyu, kilkist cyfr yakyh rivna 2";}; getch(); } Результат виконання:      Висновок: На лабораторній роботі я ознайомився з основними принципами реалізації грамматик на комп’ютері.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини